Option Explicit
Sub D_Sample004()
    Dim myRng1 As Range
    Dim myRng2 As Range
    Set myRng1 = Range("A1:A4")				'ƻsӷxsd
    Set myRng2 = Range("B1") 					'ƻsؼxs
    'ǳƨ즹
    myRng1.Copy Destination:=myRng2
    Set myRng1 = Nothing						'
    Set myRng2 = Nothing
End Sub
